1  *KERNEL EXAMPLE - MULTICOLORED PLAYER -MOVES WITH JOYSTICK
                2  *CODED BY DAN PINAL
                3  PDATA	EQU	$6000
                4  PMBASE	EQU	$D407
                5  SDLSTL	EQU	$230
                6  HPOSP0	EQU	$D000
                7  PCOLR0	EQU	$2C0
                8  COLPM0	EQU	$D012
                9  WSYNC	EQU	$D40A
               10  VCOUNT	EQU	$D40B
               11  IRQEN	EQU	$D20E
               12  NMIEN	EQU	$D40E
               13  VDSLST	EQU	$200
               14  VVBLKD	EQU	$224
               15  SDMCTL	EQU	$22F
               16  DMACTL	EQU	$D400
               17  GRACTL	EQU	$D01D
               18  SETVBV	EQU	$E45C
               19  XITVBV	EQU	$E462
               20  MISSL0	EQU	PDATA+$300
               21  PLAYR0	EQU	MISSL0+$100
               22  PLAYR1	EQU	PLAYR0+$100
               23  PLAYR2	EQU	PLAYR1+$100
               24  PLAYR3	EQU	PLAYR2+$100
               25  STICK0	EQU	$278
               26  *ZERO PAGE EQUATES
               27  VTEMP0	EQU	$F0
               28  VTEMP1	EQU	$F1
               29  P0TMP0	EQU	$F8
               30  P0TMP1	EQU	$F9
               31  	ORG	$4000
               32  INIT
4000 A9F9      33  	LDA	#>DLIST
4002 8D3002    34  	STA	SDLSTL
4005 A940      35  	LDA	#<DLIST
4007 8D3102    36  	STA	SDLSTL+1
400A A998      37  	LDA	#>KERNEL	; SET DISPLAY LIST INTERRUPT
400C 8D0002    38  	STA	VDSLST
400F A940      39  	LDA	#<KERNEL
4011 8D0102    40  	STA	VDSLST+1
4014 A056      41  	LDY	#>VBLANK	; SET VERTICAL BLANK
4016 A240      42  	LDX	#<VBLANK
4018 A907      43  	LDA	#$07		; DEFFERRED
401A 205CE4    44  	JSR	SETVBV
401D A960      45  	LDA	#<PDATA		; INIT PM GRAPHICS
401F 8D07D4    46  	STA	PMBASE
4022 A93E      47  	LDA	#$3E
4024 8D2F02    48  	STA	SDMCTL
4027 A903      49  	LDA	#03
4029 8D1DD0    50  	STA	GRACTL
402C A963      51  	LDA	#<MISSL0	; CLEAR PLAYER/MISSILE RAM
402E 85F9      52  	STA	P0TMP1
4030 A900      53  	LDA	#00
4032 85F8      54  	STA	P0TMP0
4034 A8        55  	TAY
4035 A205      56  	LDX	#05		; 5 PAGES
               57  CLEARP
4037 91F8      58  	STA	(P0TMP0),Y
4039 C8        59  	INY
403A D0FB      60  	BNE	CLEARP
403C E6F9      61  	INC	P0TMP1
403E CA        62  	DEX
403F D0F6      63  	BNE	CLEARP
4041 A90E      64  	LDA	#$0E		; WHITE
4043 8DC002    65  	STA	PCOLR0
4046 A980      66  	LDA	#$80
4048 8DFD40    67  	STA	PLAYRH
404B 8DFE40    68  	STA	PLAYRV
               69  ; ENABLE	; INTERRUPTS
404E A9C0      70  	LDA	#$C0
4050 8D0ED4    71  	STA	NMIEN
               72  HERE
4053 4C5340    73  	JMP	HERE		; ENDLESS LOOP OUTSIDE VBLANK
               74  *VBLANK ROUTINE
               75  VBLANK
4056 A9C0      76  	LDA	#$C0
4058 8D0ED4    77  	STA	NMIEN		; REENABLE DLI (FOR REV. A O.S.)
405B AE7802    78  	LDX	STICK0		; JOYSTICK0 VALUE
405E 18        79  	CLC
405F ADFD40    80  	LDA	PLAYRH		; LOAD OLD HORIZ. PLAYER POS
4062 7DD540    81  	ADC	HOFF,X		; ADD HORIZ DIRECTION VECTOR
4065 C930      82  	CMP	#$30
               83  * CHECK IF PAST RIGHT OR LEFT EDGE
4067 900A      84  	BCC	NEWV
4069 C9D0      85  	CMP	#$D0
406B B006      86  	BCS	NEWV
406D 8DFD40    87  	STA	PLAYRH		;STORE NEW HORIZ PLAYER POSITION
4070 8D00D0    88  	STA	HPOSP0		;TELL ANTIC
               89  NEWV
4073 18        90  	CLC
4074 ADFE40    91  	LDA	PLAYRV		;LOAD OLD VERT PLAYER POS
4077 7DE540    92  	ADC	VOFF,X		;ADD VERT DIRECTION VECTOR
               93  * CHECK IF PAST TOP OR BOTTOM
407A C922      94  	CMP	#$22
407C 9017      95  	BCC	XVBLANK
407E C9D0      96  	CMP	#$D0
4080 B013      97  	BCS	XVBLANK
4082 8DFE40    98  	STA	PLAYRV		;STORE NEW VERT POSITION
4085 85F0      99  	STA	VTEMP0		;LO BYTE OF P/M AREA
4087 A964     100  	LDA	#<PLAYR0
4089 85F1     101  	STA	VTEMP1		;HI BYTE OF P/M AREA
408B A013     102  	LDY	#$13		;20 ELEMENTS
              103  PDRAW
408D B9C240   104  	LDA	IMAGE,Y		;GET BYTE FROM SHAPE TABLE
4090 91F0     105  	STA	(VTEMP0),Y	;STORE BYTE IN P/M AREA
4092 88       106  	DEY			;NEXT BYTE
4093 10F8     107  	BPL	PDRAW		;DONE?
              108  XVBLANK
4095 4C62E4   109  	JMP	XITVBV
              110  *
              111  KERNEL
4098 48       112  	PHA			; SAVE REGISTERS
4099 8A       113  	TXA
409A 48       114  	PHA
409B 98       115  	TYA
409C 48       116  	PHA
409D A203     117  	LDX	#$03		; USE X FOR INDEX To COLOR TABLE
409F ADFE40   118  	LDA	PLAYRV		; GET VERT. POS.
40A2 4A       119  	LSR			; VCOUNT COUNTS EVERY OTHER LINE
40A3 A8       120  	TAY
40A4 C8       121  	INY
              122  UNTIL
40A5 8D0AD4   123  	STA	WSYNC		;WAIT TILL OFF SCREEN
40A8 CC0BD4   124  	CPY	VCOUNT		;ARE WE AT LINE TO BFGIN CHANGING
40AB B0F8     125  	BCS	UNTIL		;NO HAVEN'T REACHED IT-BRANCH
              126  CHANGE
40AD BDF540   127  	LDA	COLOR,X		; GET COLOR
40B0 8D12D0   128  	STA	COLPM0		; STUFF COLOR
40B3 8D0AD4   129  	STA	WSYNC		; WAIT 3 LINES # DO NEXT CHANGE
40B6 8D0AD4   130  	STA	WSYNC
40B9 8D0AD4   131  	STA	WSYNC
40BC CA       132  	DEX
40BD 10EE     133  	BPL	CHANGE		; GO BACK TILL ALL CHANGES MADE
40BF 4C62E4   134  	JMP	XITVBV		; LET O.S. RESTORE REGISTERS
40C2 000010   135  IMAGE	DB	$00,$00,$10,$10,$10,$10,$38,$38
40CA 38387C   136  	DB	$38,$38,$7C,$7C,$7C,$FE,$FE,$54
40D2 540000   137  	DB	$54,$00,$00
40D5 000000   138  HOFF	DB	$00,$00,$00,$00,$00,$02,$02,$02
40DD 00FEFE   139  	DB	$00,$FE,$FE,$FE,$00,$00,$00,$00
40E5 000000   140  VOFF	DB	$00,$00,$00,$00,$00,$02,$FE,$00
40ED 0002FE   141  	DB	$00,$02,$FE,$00,$00,$02,$FE,$00
40F5 4476B8   142  COLOR	DB	$44,$76,$B8,$3A
40F9 8041     143  DLIST	DB	$80,$41
              144  *	DA DLIST
40FB F940     145  	DW	DLIST
40FD 00       146  PLAYRH	DB	$00
40FE 00       147  PLAYRV	DB	$00